WNGZWZSS0120 AUTOSAVE.WKZ System @" window location (0,-400) TESTFLGT.WKZ JTF.SCZ5 JTF.SCZ folder file_sep tmtime loaded define loaded, snl, tfl on activate if deskright()=10220 and deskbottom()=6420 JTF.SCZ:mac=1 go to cell a1 window location (1, 2) window size (10220,6420) else JTF.SCZ:mac=2 go to cell a31 window location (1, 2) window size (10220,6430) end if { for 9 inch monocro monitor demo by masako-y } JTF.SCZ:mac=1 go to cell a1 window location (1, 2) window size (10220,6420) unselect tool sheet snl = length(name()) tfl = length("TESTFLGT.WKZ") if (snl > tfl) and loaded <> 1 get script left(name(),snl-tfl) & "JTF.SCZ" JTF.SCZ:folder = left(name(),snl-tfl-1) JTF.SCZ:file_sep = ":" JTF.SCZ:tmtime = 3 loaded = 1 end if end activate New Button New Button JAPANMAP.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "JAPANMAP.WKZ", 1 ) end mouseup Osaka Osaka Osaka System WINGZ Macintosh MS-Windows3.0 AOS/2 AUNIX iOpenWare/Motif ANeXTstep AWINGZ-DataLink Xinformix AWINGZ WINGZ HyperScript HyperScript System System define flag on mouseup if flag repaint selections off hide notes select object 157 control name " unselect flag = 0 repaint selections on else repaint selections off show notes select object 157 control name " unselect flag = 1 repaint selections on end if end mouseup Osaka Osaka Osaka System WINGZ Macintosh MS-Windows3.0 AOS/2 AUNIX iOpenWare/Motif ANeXTstep AWINGZ-DataLink Xinformix AWINGZ WINGZ HyperScript HyperScript System System ?ew Button JTF.SCZ button_info on mouseup call JTF.SCZ:button_info() end mouseup Osaka Helvetica POTABLE.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "POTABLE.WKZ", 1 ) end mouseup Osaka Osaka PROGRAM.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "PROGRAM.WKZ", 1 ) end mouseup Osaka Osaka DATABASE.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "DATABASE.WKZ", 1 ) end mouseup Osaka Osaka CHARTS.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "CHARTS.WKZ", 1) end mouseup Osaka Osaka PRESENTS.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "PRESENTS.WKZ", 1 ) end mouseup Osaka Osaka WKSHEETS.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "WKSHEETS.WKZ", 1 ) end mouseup Osaka Osaka EXITButton quit now Osaka Osaka define flag on mouseup if flag repaint selections off hide notes select object 119 control name " unselect flag = 0 repaint selections on else repaint selections off show notes select object 119 control name " unselect flag = 1 repaint selections on end if end mouseup Osaka Osaka About... About... JTF.SCZ about on mouseup call JTF.SCZ:about() end mouseup Osaka Osaka New Button New Button :SHEETS:PLANE.SCZ5 JTF.SCZ folder on mouseup run script JTF.SCZ:folder & ":SHEETS:PLANE.SCZ" end mouseup Osaka Osaka 5@+\4 , :_%0; 9};1= /.:J;7, @>7m.q C> *T!70U ?ew Button JTF.SCZ button_info on mouseup call JTF.SCZ:button_info() end mouseup Osaka Helvetica POTABLE.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "POTABLE.WKZ", 1 ) end mouseup Osaka Osaka PROGRAM.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "PROGRAM.WKZ", 1 ) end mouseup Osaka Osaka DATABASE.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "DATABASE.WKZ", 1 ) end mouseup Osaka Osaka CHARTS.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "CHARTS.WKZ", 1) end mouseup Osaka Osaka PRESENTS.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "PRESENTS.WKZ", 1 ) end mouseup Osaka Osaka WKSHEETS.WKZ JTF.SCZ TFOpen on mouseup call JTF.SCZ:TFOpen( "WKSHEETS.WKZ", 1 ) end mouseup Osaka Osaka EXITButton quit now Osaka Osaka About... About... JTF.SCZ about on mouseup call JTF.SCZ:about() end mouseup Osaka Osaka New Button New Button :SHEETS:PLANE.SCZ5 JTF.SCZ folder on mouseup run script JTF.SCZ:folder & ":SHEETS:PLANE.SCZ" end mouseup Osaka Osaka 5@+\4 , :_%0; 9};1= /.:J;7, @>7m.q C> *T!70U New Button New Button Osaka Osaka Osaka Kyoto Copyright 1992 ASCII Corporation version 2.0 Kyoto Kyoto Helvetica Helvetica Kyoto Osaka Courier "WINGZ" is a registered trademark of INFORMIX SOFTWARE, INC. Osaka Osaka Kyoto Copyright 1992 ASCII Corporation version 2.0 Kyoto Kyoto Helvetica Helvetica Kyoto Osaka Courier "WINGZ" is a registered trademark of INFORMIX SOFTWARE, INC. Osaka